home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / auto_inv / inv_0300.prg < prev    next >
Text File  |  1991-08-07  |  4KB  |  175 lines
  1. *--------------------------------------------------------------------------
  2. * Program KEV_0300 - Add/Edit Labor item Kevins Subaru Invoicing
  3. *                       (c) 1989 Systematics Consulting, Inc.
  4. *--------------------------------------------------------------------------
  5.  
  6. SET TALK OFF
  7. SET ECHO OFF
  8. SET STATUS OFF
  9. CLOSE ALL
  10.  
  11. ANSWER = "2"
  12.  
  13. SELECT 1
  14. USE KEV_MSTR INDEX KEV_IDX1
  15. SELECT 2
  16. USE KEV_LBOR INDEX KEV_IDX2
  17. SELECT 3
  18. USE KEV_PART INDEX KEV_IDX3
  19.  
  20.  
  21.   CLEAR
  22.  
  23. DO WHILE .T.
  24.  
  25. SELECT 1
  26.  
  27.    @ 24, 10 SAY  "Systematics Consulting, Inc. (303)674-8445 - Program KEV_0300"
  28.    @ 1,  1 SAY  DATE()
  29.    @ 1, 71 SAY  TIME()
  30.    @ 2,  5 TO  5,75 DOUBLE
  31.    @ 3, 15 SAY  "             KEVIN'S SUBARU               "
  32.    @ 4, 15 SAY  "           Add/Edit Labor Line            "
  33.  
  34. @  8, 12  SAY "ENTER 1 TO LOCATE BY INVOICE NUMBER, 2 TO LOCATE BY NAME:" GET ANSWER
  35. @  6, 5 TO 9, 75
  36. READ
  37. @  8, 1
  38.  
  39. IF ANSWER = "1"
  40.    INV_IN = 0
  41.    @  8, 1
  42.    @  8, 12  SAY "ENTER INVOICE NUMBER TO LOCATE:" GET INV_IN  PICTURE "#####"
  43.    @  6, 5 TO 9, 75
  44.    READ
  45.    LOCATE FOR INV_NO = INV_IN
  46.     IF EOF()
  47.     ANSWER = " "
  48.     @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
  49.     CLOSE ALL
  50.     READ
  51.     RETURN TO MASTER
  52.     ENDIF
  53.    EXIT
  54. ENDIF
  55.  
  56.  
  57. IF ANSWER = "2"
  58.    NAME_IN = SPACE(30)
  59.    @  8, 1
  60.    @  8, 12  SAY "ENTER LAST NAME TO LOCATE:" GET NAME_IN
  61.    @  6, 5 TO 9, 75
  62.    READ
  63.    LOCATE FOR UPPER(LASTNAME) = UPPER(NAME_IN)
  64.     IF EOF()
  65.     ANSWER = " "
  66.     @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
  67.     CLOSE ALL
  68.     READ
  69.     RETURN TO MASTER
  70.     ENDIF
  71.    EXIT
  72. ENDIF
  73.  
  74. ENDDO
  75.  
  76. ANSWER = " "
  77. @  8, 1
  78. @  8, 12  SAY "ENTER 1 TO ADD, 2 TO EDIT:" GET ANSWER
  79. @  6, 5 TO 9, 75
  80. READ
  81.  
  82. IF ANSWER <> "1" .AND. ANSWER <> "2"
  83.   CLOSE ALL
  84.   RETURN TO MASTER
  85. ENDIF
  86.  
  87.    INVNO = INV_NO
  88.    NAME = TRIM(FIRSTNAME) + " " + TRIM(LASTNAME)
  89.  
  90. *------------ ADD LINE ITEM------------------
  91.  
  92. IF ANSWER = "1"
  93.   SELECT 2
  94.      DO WHILE .T.
  95.           ANSWER = "2"
  96.           X_L_DESC = SPACE(50)
  97.           X_L_COST = 0
  98.  
  99.           @  8, 1
  100.           @  8, 12  SAY "ENTER 1 TO ADD, 2 TO QUIT:" GET ANSWER
  101.           @  6, 5 TO 9, 75
  102.           @ 10,  5 SAY "Inv. #:"
  103.           @ 10, 13 SAY INVNO PICTURE "#####"
  104.           @ 10, 20 SAY "ADD LABOR ITEMS FOR: " + NAME
  105.           @ 13,  8  SAY "Description:"
  106.           @ 13, 22  GET  X_L_DESC
  107.           @ 15, 15  SAY "Cost:"
  108.           @ 15, 22  GET  X_L_COST PICTURE "####.##"
  109.           @ 11,  5  TO 17, 76
  110.  
  111.           READ
  112.           IF ANSWER = "2"
  113.            EXIT
  114.            ENDIF
  115.  
  116.           APPEND BLANK
  117.           REPLACE KEV_LBOR->LABOR_DESC WITH X_L_DESC
  118.           REPLACE KEV_LBOR->LABOR_COST WITH X_L_COST
  119.           REPLACE KEV_LBOR->INV_NO     WITH INVNO
  120.           REINDEX
  121.  
  122.      ENDDO
  123.  
  124.   CLOSE ALL
  125.   RETURN TO MASTER
  126.  
  127. ENDIF
  128.  
  129. *----------- EDIT LINE ITEMS ------------------
  130.  
  131. IF ANSWER = "2"
  132.   SELECT 2
  133.     LOCATE FOR INV_NO = INVNO
  134.          IF EOF()
  135.          ANSWER = " "
  136.          @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
  137.          CLOSE ALL
  138.          READ
  139.          RETURN TO MASTER
  140.          ENDIF
  141.      DO WHILE INV_NO = INVNO .AND. .NOT. EOF()
  142.  
  143.           ANSWER = "1"
  144.  
  145.           @  8, 1
  146.           @  8, 12  SAY "ENTER 1 TO EDIT, 2 TO QUIT:" GET ANSWER
  147.           @  6, 5 TO 9, 75
  148.           @ 10,  5 SAY "Inv. #:"
  149.           @ 10, 13 SAY INVNO PICTURE "#####"
  150.           @ 10, 20 SAY "EDIT LABOR ITEMS FOR: " + NAME
  151.           @ 13,  8  SAY "Description:"
  152.           @ 13, 22  GET  KEV_LBOR->LABOR_DESC
  153.           @ 15, 15  SAY "Cost:"
  154.           @ 15, 22  GET  KEV_LBOR->LABOR_COST PICTURE "####.##"
  155.           @ 11,  5  TO 17, 76
  156.  
  157.           READ
  158.           IF ANSWER = "2"
  159.            EXIT
  160.           ENDIF
  161.  
  162.           SKIP
  163.  
  164.      ENDDO
  165.  
  166.   REINDEX
  167.   CLOSE ALL
  168.   RETURN TO MASTER
  169.  
  170. ENDIF
  171. REINDEX
  172. CLOSE ALL
  173. RETURN TO MASTER
  174. *---------- END OF PROGRAM ---------------- 
  175.